R Markdown

knitr::opts_chunk$set()
if (requireNamespace("thematic")) 
  thematic::thematic_rmd(font = "auto")
pre code {
  font-size: 14px; /* Adjust the font size as desired */
}

Themed Plots

Color list

freq_colors <- c("black", "white", "red", "blue", "green", "yellow", "orange", "purple", "pink", "brown", "gray", "cyan", "magenta", "turquoise", "lavender", "olive", "maroon", "teal", "navy", "beige")

d1<- data.frame(table(gsub('[1-9]','',colors())))

d1[order(d1$Freq,decreasing = T),]
##                     Var1 Freq
## 51                  gray   91
## 56                  grey   91
## 52                 gray0   10
## 57                 grey0   10
## 2           antiquewhite    5
## 3             aquamarine    5
## 4                  azure    5
## 6                 bisque    5
## 9                   blue    5
## 11                 brown    5
## 12             burlywood    5
## 13             cadetblue    5
## 14            chartreuse    5
## 15             chocolate    5
## 16                 coral    5
## 18              cornsilk    5
## 19                  cyan    5
## 22         darkgoldenrod    5
## 28        darkolivegreen    5
## 29            darkorange    5
## 30            darkorchid    5
## 33          darkseagreen    5
## 35         darkslategray    5
## 39              deeppink    5
## 40           deepskyblue    5
## 43            dodgerblue    5
## 44             firebrick    5
## 49                  gold    5
## 50             goldenrod    5
## 54                 green    5
## 59              honeydew    5
## 60               hotpink    5
## 61             indianred    5
## 62                 ivory    5
## 63                 khaki    5
## 65         lavenderblush    5
## 67          lemonchiffon    5
## 68             lightblue    5
## 70             lightcyan    5
## 71        lightgoldenrod    5
## 76             lightpink    5
## 77           lightsalmon    5
## 79          lightskyblue    5
## 83        lightsteelblue    5
## 84           lightyellow    5
## 87               magenta    5
## 88                maroon    5
## 91          mediumorchid    5
## 92          mediumpurple    5
## 100            mistyrose    5
## 102          navajowhite    5
## 106            olivedrab    5
## 107               orange    5
## 108            orangered    5
## 109               orchid    5
## 111            palegreen    5
## 112        paleturquoise    5
## 113        palevioletred    5
## 115            peachpuff    5
## 117                 pink    5
## 118                 plum    5
## 120               purple    5
## 121                  red    5
## 122            rosybrown    5
## 123            royalblue    5
## 125               salmon    5
## 127             seagreen    5
## 128             seashell    5
## 129               sienna    5
## 130              skyblue    5
## 131            slateblue    5
## 132            slategray    5
## 134                 snow    5
## 135          springgreen    5
## 136            steelblue    5
## 137                  tan    5
## 138              thistle    5
## 139               tomato    5
## 140            turquoise    5
## 142            violetred    5
## 143                wheat    5
## 146               yellow    5
## 1              aliceblue    1
## 5                  beige    1
## 7                  black    1
## 8         blanchedalmond    1
## 10            blueviolet    1
## 17        cornflowerblue    1
## 20              darkblue    1
## 21              darkcyan    1
## 23              darkgray    1
## 24             darkgreen    1
## 25              darkgrey    1
## 26             darkkhaki    1
## 27           darkmagenta    1
## 31               darkred    1
## 32            darksalmon    1
## 34         darkslateblue    1
## 36         darkslategrey    1
## 37         darkturquoise    1
## 38            darkviolet    1
## 41               dimgray    1
## 42               dimgrey    1
## 45           floralwhite    1
## 46           forestgreen    1
## 47             gainsboro    1
## 48            ghostwhite    1
## 53                gray00    1
## 55           greenyellow    1
## 58                grey00    1
## 64              lavender    1
## 66             lawngreen    1
## 69            lightcoral    1
## 72  lightgoldenrodyellow    1
## 73             lightgray    1
## 74            lightgreen    1
## 75             lightgrey    1
## 78         lightseagreen    1
## 80        lightslateblue    1
## 81        lightslategray    1
## 82        lightslategrey    1
## 85             limegreen    1
## 86                 linen    1
## 89      mediumaquamarine    1
## 90            mediumblue    1
## 93        mediumseagreen    1
## 94       mediumslateblue    1
## 95     mediumspringgreen    1
## 96       mediumturquoise    1
## 97       mediumvioletred    1
## 98          midnightblue    1
## 99             mintcream    1
## 101             moccasin    1
## 103                 navy    1
## 104             navyblue    1
## 105              oldlace    1
## 110        palegoldenrod    1
## 114           papayawhip    1
## 116                 peru    1
## 119           powderblue    1
## 124          saddlebrown    1
## 126           sandybrown    1
## 133            slategrey    1
## 141               violet    1
## 144                white    1
## 145           whitesmoke    1
## 147          yellowgreen    1

Rainbow Colors

par(bg="#202123")
par(col.axis="#B8BCC2")
barplot(seq(1,20,1), col=rainbow(20))
## Error : The fig.showtext code chunk option must be TRUE

colorRampPallete

par(col.axis="#B8BCC2")

d <- colorRampPalette(c('yellow','green','red','brown'))
d(20)
##  [1] "#FFFF00" "#D6FF00" "#AEFF00" "#86FF00" "#5DFF00" "#35FF00" "#0DFF00"
##  [8] "#1AE400" "#43BB00" "#6B9300" "#936B00" "#BB4300" "#E41A00" "#FA0202"
## [15] "#EC0808" "#DD0F0F" "#CF1616" "#C11C1C" "#B32323" "#A52A2A"
barplot(seq(1,20,1),col=d(20))
## Error : The fig.showtext code chunk option must be TRUE

barplot(seq(1,20,1),col=grey.colors(20))
## Error : The fig.showtext code chunk option must be TRUE

ggplot

library(ggplot2)
par(col.axis="#B8BCC2")

s <- read.table('crawley/scatter1.txt',header=T)
g1 <- ggplot(s, aes(xv,ys))+geom_smooth(method='lm',size=3,colour='blue')
## Warning: Using `size` aesthetic for lines was deprecated
## in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to
## see where this warning was generated.
g2 <- g1+geom_point(colour='skyblue',alpha=1/2)

plot(g2)
## Error : The fig.showtext code chunk option must be TRUE
## `geom_smooth()` using formula = 'y ~ x'